home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 207
/
207.d81
/
b.kamikaze duck
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
65 lines
5 ifa=0thena=1:load"kamikaze.ml",8,1
10 gosub60100:clr
20 poke53280,.:poke53281,.
25 print"[147] [158][203][193][205][201][203][193][218][197] [196][213][195][203]"
30 print" [194]y [194]uck [195]hildress
40 [153]" (NULL) cont- (NULL)lay (NULL)atn(NULL)right$(NULL)atn(NULL)val str$(NULL)len(NULL)"
50 [153]" (NULL) cont- (NULL)uit"
60 [153]" (NULL)ress (NULL) contor (NULL)cont."
70 a[178][194](203):[139]a[179][177]41[175]a[179][177]62[167]70
80 [139]a[178]41[167][158]49152:[137]20
90 [137]40000
9999 [128]
10000 d[178][194](186):n$[178]"b.kamikaze duck":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"on contatnre you sure you want to quit? ((NULL)cont/(NULL)cont)"
60010 a[178][194](203):[139]a[179][177]25[175]a[179][177]39[167]60010
60020 [139]a[178]39[167][153]"on on":[137]60
60030 [137]40000:[143]r0:hello connect=hello connect":input#15,er:close15
60040 ifer<>63thenend
60050 clr:load"hello connect",8
60100 pn$="[203][193][205][201][203][193][218][197] [196][213][195][203]":an$="[194][217]: [194][213][195][203] [195][200][201][204][196][210][197][211][211]"
60110 bo=11:sc=15:cl=06:c1=12:c2=00:c3=12:c4=00:c5=00:c6=02:c7=09
60130 poke53280,bo:poke53281,sc:print"[147]";:goto60250
60140 poke646,c1:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60150 poke646,c2:print" [165] [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]: [167]"
60170 poke646,c1:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
60180 poke646,c6:print""tab(20-len(pn$)/2);pn$
60190 poke646,c7:print""tab(20-len(an$)/2);an$
60200 poke646,c5:print""tab(13)"[195][207][208][217][210][201][199][200][212] 1986"
60210 printtab(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
60220 poke646,c3:print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60230 poke646,c4:print" [165] [167]"
60240 poke646,c3:print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
60245 poke198,.:goto60360
60250 poke646,cl
60255 print" [172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
60260 fora=1to3:gosub60470:next
60270 gosub60470:print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
60280 fora=1to16:gosub60470:next
60290 print"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
60300 fora=1to3:gosub60470:next
60310 print" [188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190]";
60320 poke53280,bo:poke53281,sc:goto60140
60360 print"";
60370 poke646,c2:print"[165][208]ress the [[211][208][193][195][197] [194][193][210]] to continue.[167]"
60380 fora=1to100
60390 geta$:ifa$=" "ora$="[160]"thenreturn
60400 next
60410 print"";
60420 print"[165] [167]"
60430 fora=1to100
60440 geta$:ifa$=" "ora$="[160]"thenreturn
60450 next
60460 goto60360
60470 print" [161][146][161]":return